;; The first three lines of this file were inserted by DrScheme. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(planet plai/plai:1:3/lang/reader)
(test 10 10)
(test (+ 5 3 4) 12)
(test (- 9 1) 8)
(test (/ 6 2) 3)
(test (+ (* 2 4) (- 4 6)) 6)
(define a 3)
(define b (+ a 1))
(test (+ a b (* a b)) 19)
(test (= a b) #f)
(test
 (if (and (> b a) (< b (* a b)))
    b
    a)
 4)
(test
 (cond ((= a 4) 6)
       ((= b 4) (+ 6 7 a))
       (else 25))
 16)
(test (+ 2 (if (> b a) b a)) 6)
(test
 (* (cond ((> a b) a)
          ((< a b) b)
          (else -1))
    (+ a 1))
 16)